home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO009.dsk / LEE / SET.TIME.bas < prev    next >
BASIC Source File  |  2012-02-16  |  704b  |  18 lines
  1. 1  REM  PROGRAM:SET DATE AND TIME
  2. 2  REM  TO PRODOS WITHOUT A CLOCK CARD
  3. 3  REM  
  4. 4  REM  FOR PRODOS 1.1.0
  5. 5  REM  WRITTEN BY MICHAEL LEE
  6. 6  REM  1985 03 30
  7. 7  TEXT : CLEAR : HOME : POKE 216,0:D$ =  CHR$(4):
  8. 8  PRINT D$"FRE"
  9. 9  VTAB 2: PRINT "SET DATE AND TIME TO PRODOS"
  10. 100  REM   SET TIME
  11. 110  VTAB 11: INPUT "HOURS (0-23) ";A$:A =  VAL(A$): IF A <0  OR A >23  THEN  PRINT  CHR$(7): GOTO 110
  12. 112 HOUR = A
  13. 120  VTAB 12: INPUT "MINUTES (0-59) ";A$:A =  VAL(A$): IF A <0  OR A >59  THEN  PRINT  CHR$(7): GOTO 120
  14. 122 MINUTE =  INT(A)
  15. 129  POKE 35,13: VTAB 4: CALL  -958: POKE 35,24
  16. 130  VTAB 22: PRINT "TIME IS   "HOUR":" RIGHT$("00" + STR$(MINUTE),2)
  17. 140 MN = 49042:
  18. 142  POKE MN,MINUTE: POKE MN +1,HOUR